home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 91 / 091.d81 / letter boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  53 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 20 dimm$(12):gosub70:gosub1000:poke214,24:poke211,13:sys58732
  3. 25 print"[158][146][204] [207][160][193] [196] [201][160][206] [199]"tab(20-len(a$)/2)a$
  4. 30 print"[144]":print""
  5. 40 print "load";chr$(34);f$;chr$(34)","dv
  6. 50 print"run"
  7. 60 poke631,13:poke632,13:poke198,2:end
  8. 70 print"[147]":poke53280,0:poke53281,0:iffthenreturn
  9. 80 poke214,10:print"[145]";
  10. 85 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  11. 90 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  12. 100 fori=217to242:pokei,peek(i)or128:next
  13. 110 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  14. 120 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  15. 130 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
  16. 140 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
  17. 150 poke214,14:print"[145][155]";
  18. 160 fori=1to5:reada$:gosub170:next:goto180
  19. 170 printspc(20-len(a$)/2)""a$:a$="":return
  20. 180 f$="lettermeister":return
  21. 190 data"[204] [197] [212] [212][160][197] [210] [205] [197] [201][160][211] [212] [197] [210]","by [202]effrey [204]. [202]ones
  22. 200 [131]"(NULL)1.0 (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #91","(NULL)ubscriptions 1-800-831-2694"
  23. 210 [131]"lenopyright (len) 1991 (NULL)oftdisk"
  24. 1000 [129]i[178]1[164]12:[135]m$(i):[130]
  25. 1070 [143] **** get time ****
  26. 1100 [129]i[178]8[164]16:t$[178]"":[160]15:[159]15,i,15:[160]15:[139]st[167]1140
  27. 1110 [159]15,i,15:[152]15,"t-ra":[132]15,a$,b$:[139][197](a$)[167]1140
  28. 1115 [152]15,"t-ra"
  29. 1120 [161]#15,a$:[139]a$[179][177][199](13)[167]t$[178]t$[170]a$:[137]1120
  30. 1130 [139][197](t$)[178]0[167]i[178]16:[137]1140
  31. 1140 [130]
  32. 1145 [139][197](t$)[176]t$[178]""[167]1200
  33. 1150 da$[178][200](t$,13):da$[178][202](da$,6)
  34. 1160 ti$[178][202](t$,15,2)[170][202](t$,18,2)[170][202](t$,21,2)
  35. 1170 m$[178]m$([197]([202](da$,1,2))):d$[178][196]([197]([202](da$,4,2)))
  36. 1180 ye[178][197]([202](da$,7,2)):ye$[178]"19":[139]ye[179]91[167]ye$[178]"20"
  37. 1190 ye$[178]ye$[170][202](da$,7,2):a$[178]m$[170]d$[170]", "[170]ye$[170][199](0)
  38. 1195 [139][194](653)[179][177]4[167][129]i[178]1[164][195](a$):[151]65151[170]i,[198]([202](a$,i,1)):[130]:[142]
  39. 1200 [153]"cont(NULL)oday's str$ate? print";:li[178]38[171][194](211):[141]50000:a$[178]w$
  40. 1210 a$[178]a$[170][199](0):[151]781,[194](214):[158]59903:[137]1195
  41. 2000 [131]"mid$anuary","ascebruary","(NULL)arch","atnpril","(NULL)ay","mid$une","mid$uly","atnugust"
  42. 2010 [131]"(NULL)eptember","(NULL)ctober","(NULL)ovember","str$ecember"
  43. 50000 w$[178]"":t[178]0:lw[178]0:[139]li[178]0[167]li[178]35
  44. 50010 [161]a$:as[178][198](a$[170][199](0)):[139]ti[177]15[167][141]50090
  45. 50020 [139](a$[179]" "[176]a$[177]"z")[175](a$[179]"atn"[176]a$[177]"(NULL)")[175]as[179][177]13[175]as[179][177]20[167]50010
  46. 50030 lw[178][195](w$):[139]as[178]13[167]t[178][171]1:[141]50090:[142]
  47. 50040 [139]lw[178]li[167][139]as[179][177]20[175]as[179][177]13[167]50010
  48. 50050 [139]as[178]20[167][139]lw[178]0[167]50010
  49. 50060 [139]as[178]20[167]w$[178][200](w$,[195](w$)[171]1):t[178]0:[141]50090:[141]50090:[153]"waitcmd cmd";:[137]50010
  50. 50070 w$[178]w$[170]a$:lw[178][195](w$):[151]212,0:[153]"wait"a$;:[141]50090
  51. 50080 [137]50010
  52. 50090 t[178][168]t:[151]199,[171]t:[153]" cmd";:ti$[178]"000000":[142]
  53.